home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CICA 1993 April
/
CICA MS Windows - April 1993.iso
/
unzipped
/
programr
/
tp
/
tpwmi2
/
bwccowl.pas
next >
Wrap
Pascal/Delphi Source File
|
1992-08-03
|
2KB
|
106 lines
unit BWCCOwl;
interface
uses WinTypes,WObjects,BWCC;
type
PBDialog = ^TBDialog;
TBDialog = object(TDialog)
function GetClassName: PChar; virtual;
end;
PBCheckBox = ^TBCheckBox;
TBCheckBox = object(TCheckBox)
function GetClassName: PChar; virtual;
end;
PBRadioButton = ^TBRadioButton;
TBRadioButton = object(TRadioButton)
function GetClassName: PChar; virtual;
end;
PBButton = ^TBButton;
TBButton = object(TButton)
function GetClassName: PChar; virtual;
end;
PBStatic = ^TBStatic;
TBStatic = object(TStatic)
function GetClassName: PChar; virtual;
end;
PBGroupBox = ^TBGroupBox;
TBGroupBox = object(TGroupBox)
constructor Init(AParent:PWindowsObject; AnID:integer; AText:PChar;
X,Y,W,H:integer);
function GetClassName: PChar; virtual;
end;
PBDivider = ^TBDivider;
TBDivider = object(TControl)
constructor Init(AParent:PWindowsObject; AnID:integer; AText:PChar;
X,Y,W,H:integer;IsVertical,IsBump:boolean);
function GetClassName: PChar; virtual;
end;
implementation
function TBDialog.GetClassName:PChar;
begin
GetClassName:=BorDlgClass;
end;
function TBCheckBox.GetClassName:PChar;
begin
GetClassName:=Check_Class;
end;
function TBRadioButton.GetClassName:PChar;
begin
GetClassName:=Radio_Class;
end;
function TBButton.GetClassName:PChar;
begin
GetClassName:=Button_Class;
end;
function TBStatic.GetClassName:PChar;
begin
GetClassName:=Static_Class;
end;
constructor TBGroupBox.Init(AParent:PWindowsObject; AnID:integer; AText:PChar;
X,Y,W,H:integer);
begin
TGroupBox.Init(AParent,AnID,AText,X,Y,W,H);
Attr.Style:=Attr.Style and not bs_GroupBox;
Attr.Style:=Attr.Style or bss_Group;
end;
function TBGroupBox.GetClassName:PChar;
begin
GetClassName:=Shade_Class;
end;
constructor TBDivider.Init(AParent:PWindowsObject; AnID:integer; AText:PChar;
X,Y,W,H:integer;IsVertical,IsBump:boolean);
begin
TControl.Init(AParent,AnID,AText,X,Y,W,H);
Attr.Style:=Attr.Style and not bs_GroupBox;
if IsVertical and IsBump then Attr.Style:=Attr.Style or bss_Vbump;
if (not IsVertical) and IsBump then Attr.Style:=Attr.Style or bss_Hbump;
if IsVertical and (not IsBump) then Attr.Style:=Attr.Style or bss_Vdip;
if (not IsVertical) and (not IsBump) then Attr.Style:=Attr.Style or bss_Hdip;
end;
function TBDivider.GetClassName: PChar;
begin
GetClassName:=Shade_Class;
end;
end.